home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / qbtools1.arc / AEBITLFT.BAS < prev    next >
BASIC Source File  |  1987-01-11  |  768b  |  29 lines
  1. rem $linesize:132
  2. rem $title:'Application Engineer Standard Routines'
  3. rem $subtitle:'Move to the first key in the index'
  4. '
  5. '  bit.left moves the index pointer so that it references the smallest
  6. '  key in the tree. this function is to be used to get a listing of the
  7. '  tree in sequence. the 'bit.right' routine will position the pointer
  8. '  at the other end of the tree for reverse listings.
  9. '
  10. '                Include the COMMON values
  11. rem $include:'AESHARED.BAS'            
  12.     
  13. sub bit.left(fl%,ky$,mrec%,success%) static
  14.  
  15.         rec%=1
  16. lfagain:
  17.         get #fl%,rec%
  18.         success%=cvi(xk$(fl%,2))
  19.         if success%=0 then
  20.             goto lffin
  21.         end if
  22.         rec%=success%
  23.         goto lfagain
  24. lffin:
  25.         ky$=xk$(fl%,1)
  26.         success%=rec%
  27.         mrec%=cvi(xk$(fl%,5))
  28.     end sub
  29.